program nalichie_odinacovih_chisel_v_chetirehznachnom_chisle;
var
s: string;
c: char;
n,len,i: byte;
freq: real;
begin
if len > 1 then
writeln (' число введено не верно');
write('String: ');
readln(s);
write('Char: ');
readln(c);
n := 0;
len := length(s);
for i:=1 to len do
if s[i] = c then
n := n + 1;
freq := (n / len) * 100;
writeln('Frequency: ',freq:5:2,'%');
readln
end.